home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 44 / Amiga Format CD44 (1999-08-26)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-10].iso / -in_the_mag- / basics / amos / intuiextend20b.lha / distribution / exemples / Spline2.asc < prev    next >
Text File  |  1980-03-12  |  949b  |  43 lines
  1. '**************************************
  2. '                                     *
  3. '     IntuiExtend.Lib 2.0/@1995-98    *
  4. '                                     *
  5. '          by CIERP Philippe.         *
  6. '                                     *
  7. '          from AMIGAzette 83         *
  8. '                                     *
  9. '**************************************
  10. '
  11. ' Command
  12. '  -Wb Spline
  13. '
  14. Screen Open 0,320,256,8,0
  15. Flash Off : Curs Off : Cls 0 : Ink 2
  16. Gr Writing 2
  17. '
  18. Do 
  19. For T=0 To 320 Step 5
  20. Wb Spline 100,50 To T,0 To 220,200,12
  21. Wait Vbl 
  22. Wb Spline 100,50 To T,0 To 220,200,12
  23. Next T
  24.  
  25. For T=0 To 255 Step 5
  26. Wb Spline 100,50 To 320,T To 220,200,12
  27. Wait Vbl 
  28. Wb Spline 100,50 To 320,T To 220,200,12
  29. Next T
  30.  
  31. For T=320 To 0 Step -5
  32. Wb Spline 100,50 To T,255 To 220,200,12
  33. Wait Vbl 
  34. Wb Spline 100,50 To T,255 To 220,200,12
  35. Next T
  36.  
  37. For T=255 To 0 Step -5
  38. Wb Spline 100,50 To 0,T To 220,200,12
  39. Wait Vbl 
  40. Wb Spline 100,50 To 0,T To 220,200,12
  41. Next T
  42. Loop 
  43.